約 3,422,391 件
https://w.atwiki.jp/doa-world/pages/67.html
Revolution Lyrics 吉本大樹 Music 徳永暁人 Hiden Crisis May Come To You How Can Be Ready If Not Ready In Due Working On Only What You've Been Asked? Hey Chap! Crisis Are All Around Your Ass I Don't Care About Your Future Love Live In The Preasent Ha? Train Is Just Around The Corner Wake Up If You Wanna Come wow wow wuh Revolition wow wow wuh Revolition wow wow wuh Revolition Jump On The Train A Littele Bit Similar To Starving Dogs Somehow Stop Chacing Yammy Hot Chixxx Do You Get What You Really Deserve? Open Up Your Eyes And Check Above Is There A Reason To Stay Still? People Are All Waiting For Our Play Train Is Now Stopped In Paradise Now You Choose Stay Or Go wow wow wuh Revolition wow wow wuh Revolition wow wow wuh Revolition If You Want Some Change Is There A Reason To Stay Still? People Are All Waiting For Our Play Train Is Now Stopped In Paradise Now You Choose Stay Or Go wow wow wuh Revolition wow wow wuh Revolition wow wow wuh Revolition If You Want Some Change wow wow wuh Revolition wow wow wuh Revolition wow wow wuh Revolition Let's Make Some Big Change 2008.10.22 Single「I wish」03.収録
https://w.atwiki.jp/ce00582/pages/1082.html
Private Sub Command1_Click() Dim buf(1 To 10000) As String Dim n As Single Dim b As String Dim start(1 To 10000) As Single Dim num(1 To 10000) As Single Dim a1 As Single Dim a2 As Single Dim a3 As Single Dim endnum As Single n = 1 Open "c \psid.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf(n) n = n + 1 Loop Close #1 endnum = n - 1 Debug.Print endnum Debug.Print buf(100) Open "c /point.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3 n = a1 start(n) = a2 num(n) = a3 Loop Close #2 For n = 1 To 100 Debug.Print Mid(buf(n), start(50), num(50)) Next End Sub
https://w.atwiki.jp/vocaloidenglishlyric/pages/81.html
【Tags R iroha (sasaki) kuma (alfred) tM tN Rin】 Original Music Title 炉心融解 Nuclear Fusion -MELTDOWN- (Roshin Yuukai) Music written, Voice edited by iroha(sasaki) Lyrics written by kuma (alfred) Singer 鏡音リン (Kagamine Rin) Fanmade Covers and Arrangements Click here for the Japanese Lyrics English Lyrics (translated by ArtemisA): The town is filled with brilliant light The chill of anesthetic ether 2 AM, and I can't sleep Everything is changing so fast The lighter's out of oil The pit of my stomach is on fire If everything is such a lie Then it really would be better I dreamed of wrapping my hands 'round your neck On an early afternoon, overflowing with light I dreamed, with eyes full of tears of cinching your narrow throat [1] I want to dive into a nuclear reactor Surrounded by beautiful blue light If I dive into the nuclear reactor then I can let it all go On the other side of the balcony The sound of someone climbing the stairs The clouding sky falls into the room through the window panes In the scattering twilight The sun is red, like teary eyes Bit by bit, as if dissolving Little by little this world is dying I dreamed of wrapping my hands 'round your neck 'Neath curtains rustled by a breeze The words overflow from your dried up lips, like bubbles I want to dive into a nuclear reactor So the memories melt away to white If I dive into the nuclear reactor Then I'll be able to sleep as I did long ago That's how I feel The second hand on the clock And the officials on the tv Are still there, but the laughter of someone I can't see is echoing all through my head Allegro Agitato My ears won't stop ringing Allegro Agitato My ears won't stop ringing I dreamed that everyone was disappearing The emptiness and silence of this room in the night Weighs down on me I can't breathe anymore (Shout!!) Should I dive into the nuclear reactor I know I can disappear, so I can sleep A morning without me Will be much more wonderful than now Where everything is in gear That sort of world, definitely Singable English Lyrics for singing (by Marimo): lights of the town are shining with a chilly pain like ether anesthetic unable to sleep at 2 A.M. everything has changed and lost control of rule oil is already running out in lighter my stomach is nervously burning inside if all the scenes were created by lies I really feel happiness and easiness in broken dream I wring your neck in my dirty hands lights are shining and making flow in the afternoon I look at your throat jumping under my closed mind but my eyes are gonna start to cry, shout to pretend hey, take me to nuclear reactor I wish to dive into core, wanna fly a ray of blue lights surrounds my body, beautiful hey, take me to nuclear reactor if I could dive into core, and then cry all sins I did will be allowed within a miracle I hear the sound somebody runs up upstairs through the terrace on the other side cloudy sky is beginning to make a shadow drop on window glass and room twilight is spreading lights over the horizon the sun is setting like a swollen eye, bloody inside around the world everything I see is dead, slowly and slowly melting down without consciousness in broken dream I wring your neck in my dirty hands curtains are dancing with a breeze of cherry spring all the words I said by dry injured, colorless lips are also melting just like a life of bubbles hey, take me to nuclear reactor I wish to dive into core, wanna fly disabled memories go white, melt and disappear hey, take me to nuclear reactor if I could dive into core, and then cry like old days good sleep will bring me dream of tenderness second hand of the wall clock and the presenter in a TV show invisible people laugh over there certainly voices are saturated, echoes surround in my brain allegro, agitate ears are ringing so loudly, don't stop allegro, agitate ears are ringing so loudly, don't stop in broken dream everyone disappears out of sight at midnight my room changes the size bigger and silent nightmare comes into my chest suddenly hardly I breathe, end of the world start in my life (Shout!!) hey, take me to nuclear reactor if I could dive into core, and then cry my body and mind disappear without a pain of anger hey, imagine I say good-bye to world there will be new morning, it's surely too much beautiful all the gears of mind are fully meshing together I believe... it's true... my perfect world Romaji lyrics (transliterated by ArtemisA): machiakari hanayaka EETERU masui no tsumetasa nemurenai gozen niji subete ga kyuusoku ni kawaru OIRU kire no RAITAA yaketsuku you na inonaka subete ga sou uso nara hontou ni yokatta noni ne kimi no kubi wo shimeru yume wo mita hikari no afureru hirusagari kimi no hosoi nodo ga haneru no wo nakidashisouna me de miteita kakuyuugouro nisa tobikonde mitai to omou massao na hikari tsutsumarete kirei kakuyuugouro nisa tobikonde mitara soshitara subete ga yurusareru youna kigashite BERANDA no mukougawa kaidan wo nobotte yuku oto kageridashita sora ga mado GARASU ni heya ni ochiru kakusan suru yuugure nakiharashita youna hi no aka tokeru you ni sukoshi zutsu sukoshi zutsu shinde yuku sekai kimi no kubi wo shimeru yume wo mita harukaze ni yureru KAATEN kawaite kireta kuchibiru kara koboreru kotoba wa awa no you kakuyuugouro nisa tobikonde mitai to omou masshiro ni kioku tokasarete kieru kakuyuugouro nisa tobikonde mitara mata mukashi mitai ni nemureru youna sonna kigashite tokei no byoushin ya TEREBI no shikaisha ya soko ni iru kedo mienai dareka no waraigoe houwa shite hankyou suru Allegro Agitato miminari ga kienai yamanai Allegro Agitato miminari ga kienai yamanai daremo minna kieteku yume wo mita mayonaka no heya no hirosa to seijaku ga mune ni tsukkaete jouzu ni iki ga dekinaku naru (Shout!!) kakuyuugouro nisa tobikonde mitara soshitara kitto nemuru youni kiete ikerunda boku no inai asa wa ima yori zutto subarashikute subete no haguruma ga kamiatta kitto sonna sekai da Fanmade Filk(s) Music title ロリ誘拐 English music title Loli Kidnapping / Lolicon Kidnapping Romaji music title Rori Yuukai Lyrics arranged by hoheto / 汚点P(Oten-P) Singer(s) 鏡音レン (Kagamine Len) Clike here for the lyrics
https://w.atwiki.jp/stones/pages/349.html
U. K. UK 7"SINGLE (DECCA F 12952) 7.4.1969 1 Honky Tonk Women 2 You Can t Always Get What You Want (edited version) ■SINGLES COLLECTION / THE LONDON YEARS (abkco 1218-2) includes track 1 mono, track 2 stereo ■SINGLES COLLECTION / THE LONDON YEARS (abkco 92312) includes track 1 stereo, track 2 mono ■SINGLES 1968-1971 (abkco 0602498270752) includes track 1 stereo, track 2 mono UK LP - THROUGH THE PAST, DARKLY (BIG HITS VOL.2) (DECCA SKL 5019/LK 5019) 9.12.1969 1 Jumpin Jack Flash 2 Mother s Little Helper 3 2000 Light Years From Home 4 Let s Spend The Night Together 5 You Better Move On 6 We Love You 7 Street Fighting Man 8 She s A Rainbow 9 Ruby Tuesday 10 Dandelion 11 Sittin On A Fence 12 Honky Tonk Women ■THROUGH THE PAST, DARKLY (BIG HITS VOL.2) (London P25L 25044) (Japan) includes track 5 simulated stereo, tracks 1-4, 6-12 stereo ■Through The Past, Darkly (Big Hits Vol.2) (Bootleg) includes tracks 1-12 mono UK LP - LET IT BLEED (DECCA SKL 5025/LK 5025) 12.5.1969 1 Gimme Shelter 2 Love In Vain 3 Country Honk 4 Live With Me 5 Let It Bleed 6 Midnight Rambler 7 You Got The Silver 8 Monky Man 9 You Can t Always Get What You Want ■LET IT BLEED (London 820052-2) includes tracks 1-9 stereo ■LET IT BLEED (abkco 90042) includes tracks 1-9 stereo ■Let It Bleed (bootleg) includes tracks 1-9 mono U. S. A. US 7"SINGLE (LONDON 910) 7.11.1969 1 Honky Tonk Women 2 You Can t Always Get What You Want (edited version) ■SINGLES COLLECTION / THE LONDON YEARS (abkco 1218-2) includes track 1 mono, track 2 stereo ■SINGLES COLLECTION / THE LONDON YEARS (abkco 92312) includes track 1 stereo, track 2 mono ■SINGLES 1968-1971 (abkco 0602498270752) includes track 1 stereo, track 2 mono US LP - THROUGH THE PAST, DARKLY (BIG HITS VOL.2) (LONDON NPS 3) 9.13.1969 1 Paint It, Black 2 Ruby Tuesday 3 She s A Rainbow 4 Jumpin Jack Flash 5 Mother s Little Helper 6 Let s Spend The Night Together 7 Honky Tonk Women 8 Dandelion 9 2000 Light Years From Home 10 Have You Seen Your Mother, Baby, Standing In The Shadow ? 11 Street Fighting Man ■THROUGH THE PAST, DARKLY (BIG HITS VOL.2) (abkco 90032) includes tracks 5,10 mono, tracks 1-4, 6-9,11 stereo US LP - LET IT BLEED (LONDON NPS 4/NP 4) 11.28.1969 1 Gimme Shelter 2 Love In Vain 3 Country Honk 4 Live With Me 5 Let It Bleed 6 Midnight Rambler 7 You Got The Silver 8 Monky Man 9 You Can t Always Get What You Want ■LET IT BLEED (London 820052-2) includes tracks 1-9 stereo ■LET IT BLEED (abkco 90042) includes tracks 1-9 stereo BACK / NEXT
https://w.atwiki.jp/keroro00innovator/pages/5943.html
JUNGLE FIRE JUNGLE FIRE アーティスト 芹澤優 発売日 2023年10月18日2023年10月11日(配信) レーベル avex CDデイリー最高順位 1位(2023年10月22日) 週間最高順位 2位(2023年10月24日) 月間最高順位 9位(2023年10月) 初動総合売上 6624 累計総合売上 28927 収録内容 曲名 タイアップ 視聴 1 JUNGLE FIRE MFゴースト OP 2 YY ViVace CD/総合ランキング 週 月日 CDシングル 総合シングル 順位 週/月間枚数 累計枚数 順位 週/月間枚数 累計枚数 1 10/17 16 3067 3067 2 10/24 4 2755 2755 2 6624 9690 3 10/31 14 1126 3881 14 4579 14268 2023年10月 14 3881 3881 9 14268 14268 4 11/7 8 1071 4952 7 4275 18543 5 11/14 20 261 5213 13 3070 21613 6 11/21 173 5386 17 2186 23798 7 11/28 143 5529 19 1686 25483 2023年11月 23 1648 5529 15 11215 25483 8 12/5 161 5690 16 1679 27161 9 12/12 214 5904 766 27927 10 12/26 128 6159 128 28666 11 24/1/2 99 6258 99 28765 2023年12月 729 6258 44 3282 28765 12 1/9 90 6348 90 28855 13 3/5 72 6420 72 28927 配信ランキング JUNGLE FIRE 週 月日 デジタルシングル 順位 週/月間DL数 累計DL数 1 10/17 6 4153 4153 2 10/24 5 3753 7906 3 10/31 6 2884 10790 2023年10月 8 10790 10790 4 11/7 12 2562 13352 5 11/14 12 1964 15316 6 11/21 12 1623 16939 7 11/28 12 1578 18517 2023年11月 11 7727 18517 8 12/5 13 1468 19985 9 12/12 15 1378 21363 10 12/19 17 1210 22573
https://w.atwiki.jp/thecockrockshockpop/pages/758.html
Afterburner Afterburner 1985年12月21日 1. Sleeping Bag / 2. Stages / 3. Woke Up With Wood / 4. Rough Boy / 5. Can t Stop Rockin / 6. Planet Of Women / 7. I Got The Message / 8. Velcro Fly / 9. Dipping Low ( In The Lap Of Luxury ) / 10. Delirious
https://w.atwiki.jp/abpg/pages/19.html
・テーブルコントロールの属性① 選択可能有無と複数選択可を制御 属性 LINE_SEL_MODE 値 0(No) , 1(Single) , 2(Multi) ・テーブルコントロールの属性② 表示項目のうち固定項目(横スクロールでも表示される項目)の数 属性 FIXED_COLS 値 数値 ・画面項目を入力不可 LOOP AT SCREEN. IF SCREN-NAME = screen_field_name . SCREEN-INPUT = 0 . MODIFY SCREEN. ENDIF. ENDLOOP. ・テーブル項目を利用して、Dynproに入出力レイアウトを作成 ①テーブルを登録 ②スクリーンペインタ画面を表示し、 メニュー[ジャンプ]⇒[二次ウィンドウ]⇒[ディクショナリ/プログラム項目]を選択 ③テーブル名/項目名に登録したテーブル名を入力し、Dictからの取得ボタンを押下 ⇒結果、一覧に項目が表示される。 ④レイアウトに使いたい項目を選択し、OKボタン押下 ※テキストなし or テキスト使用の値の設定など可能 ⑤スクリーンペインタ画面で追加したい場所にレイアウトを設定 ⑥保存&有効化 ⑦テスト実行により、追加項目が表示されることを確認 ・テーブルコントロールの追加 ①プログラム内に、表示したい項目を持つ内部テーブルとワークエリアを定義する ②スクリーンペインタ画面で、テーブルコントロール(wizard付)ツールボタンを押下し、 ウィザードに従い値(テーブルコントロール名、テーブル名、ワークエリア名)を入力する。 ・GUI Statusの機能ボタンを一部非表示にする TYPES BEGIN OF TAB_TYPE, FCODE LIKE RSMPE-FUNC, END OF TAB_TYPE, DATA GT_HIDEKEY TYPE STANDARD TABLE OF TAB_TYPE, GW_HIDEKEY TYPE TAB_TYPE. 非表示にするボタンのFunction codeを設定 GW_HIDEKEY-FCODE = function name . APPEND GW_HIDEKEY TO GT_HIDEKEY. SET PF-STATUS status name EXCLUDING GT_HIDEKEY. ・動的に項目属性を設定 ①画面項目に軌道コマンド(USER-COMMAND)オプションを指定 ②グループを定義(GROUPオプション) ③at selection-screen output.に設定処理を記述 LOOP AT SCREEN. IF SCREEN-GROUP1 = ○○○ SCREEN-INPUT = 0 ENDIF. MODIFY SCREEN. ENDLOOP.
https://w.atwiki.jp/ce00582/pages/689.html
Function checknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 checknowork = u1 End Function Function stopv(s As Single, m As Single, n As Single, nowork, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = m n1 = n If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (nowork(s, m3, n2) - nowork(s, m2, n2)) dn = (n1 - n2) * (nowork(s, m2, n3) - nowork(s, m2, n2)) If nowork(s, m2, n2) -900 Then pp = 1 If nowork(s, m3, n2) -900 Then pp = 1 If nowork(s, m2, n3) -900 Then pp = 1 nv = nowork(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 v1 = nearv(s, m, n, v) x = 0 If nv v1 Then x = 1 If nv = v1 Then x = 1 stopv = x End Function Function gotow(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop uxs = nru(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h gotow = mxs End Function Function gotob(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop gotob = n - bxs End Function Function nru(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n m1 = m If m1 -5 Then pp = 1 If m1 -5 Then m1 = -5 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m2, n3) - u(s, m2, n2)) dm = (m1 - m2) * (u(s, m3, n2) - u(s, m2, n2)) If u(s, m2, n2) -900 Then pp = 1 If u(s, m2, n3) -900 Then pp = 1 If u(s, m3, n2) -900 Then pp = 1 nu = u(s, m, n2) + dn + dm If pp = 1 Then nu = -999 nru = nu End Function Function seekstartu(th, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = 0.5 ys = th(100) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h c1 = th(100) * l1 - bp u1 = Log(c1) + Log(1 - l1) l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(100) * l2 - bp u2 = Log(c2) + Log(1 - l2) If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekstartu = us End Function Function seeknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 seeknowork = u1 End Function Function seekv(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nearu(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nearu(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nearu(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop seekv = vxs End Function Function nearu(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m, n3) - u(s, m, n2)) If u(s, m, n2) -900 Then pp = 1 If u(s, m, n3) -900 Then pp = 1 nu = u(s, m, n2) + dn If pp = 1 Then nu = -999 nearu = nu End Function Function nearv(s As Single, mx As Single, nx As Single, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = mx n1 = nx If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(s, m3, n2) - v(s, m2, n2)) dn = (n1 - n2) * (v(s, m2, n3) - v(s, m2, n2)) If v(s, m2, n2) -900 Then pp = 1 If v(s, m3, n2) -900 Then pp = 1 If v(s, m2, n3) -900 Then pp = 1 nv = v(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 nearv = nv End Function Function seeku(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.01) / th(s) If ls 0.01 Then ls = 0.01 ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seeku = us End Function Function seekw(wp As Single) As Single Dim x1 As Single Dim x2 As Single Dim x3 As Single Dim w1 As Single Dim w2 As Single Dim t As Single Dim pp As Single pp = 0 If wp 2 * Log(0.1) Then pp = 1 If wp 2 * Log(1) Then pp = 1 x1 = 0.3 x2 = 0.7 t = 0 If pp = 1 Then t = 1000 Do Until t 100 w1 = 2 * Log(x1) w2 = 2 * Log(x2) x3 = x2 + (wp - w2) * (x2 - x1) / (w2 - w1) x1 = x2 x2 = x3 If (wp - w2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop If pp = 1 Then x2 = -999 seekw = x2 End Function Function lx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 lx = ls End Function Function cx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 cx = (1 - tl) * th(s) * ls + tr End Function Function tls(th) As Single Dim maxw As Single Dim tl As Single Dim tr As Single Dim tp As Single Dim w1 As Single Dim n As Single maxw = -999 For n = 1 To 400 tl = 0.001 * n tr = trs(th, tl) w1 = wel(th, tl, tr) If w1 maxw Then tp = tl If w1 maxw Then maxw = w1 Next tls = tp End Function Function trs(th, tl As Single) As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim t As Single tr1 = 0 tr2 = 0.1 t = 0 Do Until t 100 b1 = bud(th, tl, tr1) b2 = bud(th, tl, tr2) tr3 = tr2 - b2 * (tr2 - tr1) / (b2 - b1) tr1 = tr2 tr2 = tr3 If (tr1 - tr2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr2 End Function Function wel(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single w1 = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 cs = cx(s, th, tl, tr) w1 = w1 + Log(cs) + Log(1 - ls) Next wel = w1 End Function Function bud(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single Dim ys As Single ys = 0 cs = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 ys = ys + th(s) * ls cs = cs + cx(s, th, tl, tr) Next bud = ys - cs End Function Private Sub Command1_Click() Dim th(1 To 100) As Single Dim s As Single Dim m As Single Dim n As Single Dim tl As Single Dim tr As Single Dim bs(1 To 100) As Single Dim ws(1 To 99) As Single Dim startu(-50 To 50) As Single Dim u(1 To 99, -5 To 5, -5 To 5) As Single Dim v(1 To 99, -5 To 5, -25 To 25) As Single Dim nowork(1 To 99, -5 To 5, -25 To 25) As Single Dim w1 As Single Dim wp As Single Dim bp As Single Dim h As Single Dim bb As Single Dim s1 As Single For s = 1 To 100 th(s) = 0.02 * s Next tl = tls(th) tr = trs(th, tl) Debug.Print tl, tr For s = 1 To 100 bs(s) = th(s) * lx(s, th, tl, tr) - cx(s, th, tl, tr) Next For s = 1 To 99 w1 = Log(cx(s, th, tl, tr)) + Log(1 - th(s) * lx(s, th, tl, tr) / th(s + 1)) ws(s) = seekw(w1) Next h = 10 ^ (-2) For s = 1 To 99 For m = -5 To 5 For n = -5 To 5 wp = 2 * Log(ws(s) + h * m) bp = bs(s) + h * n u(s, m, n) = seeku(s, th, wp, bp) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 nowork(s, m, n) = seeknowork(s, m, n, h, ws, bs) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = -999 Next Next Next s = 1 For m = -5 To 5 For n = -5 To 5 v(s, m, n) = u(s, m, n) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next For s = 2 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = seekv(s, m, n, h, ws, u, v) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next Debug.Print s, v(s, 0, 0) Next For n = -50 To 50 bp = bs(100) + 0.1 * n * h startu(n) = seekstartu(th, bp) Next Dim u1 As Single Dim opb(1 To 99) As Single Dim opw(1 To 99) As Single vs = -999 For n = -50 To 50 u1 = startu(n) m1 = (seekw(u1) - ws(99)) / h m2 = Int(m1) If m2 5 Then m2 = 5 m3 = m2 + 1 If m3 = 6 Then m3 = 5 n1 = 0.1 * n n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(99, m3, -n2) - v(99, m2, -n2)) dn = (n1 - n2) * (v(99, m2, -n3) - v(99, m2, -n2)) v1 = startu(n) + v(99, m2, -n2) + dm + dn If v1 vs Then ms = m1 If v1 vs Then ns = n1 If v1 vs Then vs = v1 Debug.Print ms, ns, vs Next Dim stoppoint As Single opw(99) = ms opb(99) = -ns s = 99 Do Until s 10 s = s - 1 opb(s) = gotob(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) opw(s) = gotow(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) Debug.Print s + 1, opw(s + 1), opb(s + 1) If stopv(s, opw(s), opb(s), nowork, v) = 0 Then stoppoint = s If stopv(s, opw(s), opb(s), nowork, v) 0 Then s = -10 Loop s = stoppoint Debug.Print checknowork(s, opw(s), opb(s), h, ws, bs) End Sub
https://w.atwiki.jp/thecockrockshockpop/pages/1181.html
CD-Rider CD-Rider 1. Dear ~ コバルトの彼方へ ~ / 2. パームトゥリー・キャンドル / 3. Superstition / 4. ジャングル・ダンス [ version II ] / 5. ペルシャン・ローズ / 6. 朝の街 / 7. Eye Spy The Night / 8. スターダスト・ドリーム [ version II ] / 9. アフター5 はパラダイス / 10. ストレンジャー Tonight [ version II ] / 11. 素敵に Fade Away / 12. 銀色のペーパームーン / 13. ストレンジャー Tonight [ bonus track ] / 14. Bus Stop [ bonus track ] / 15. スターダスト・ドリーム [ bonus track ] / 16. ジャングル・ダンス [ bonus track ] / 17. Dear ~ コバルトの彼方へ ~ [ single ver. / bonus track ]
https://w.atwiki.jp/stones/pages/316.html
THE ANDREW OLDHAM ORCHESTRA 1964 1 To Know Him Is To Love Him (Cleo) (backing by The Rolling Stones) 2 There Are But Five Rolling Stones (backing by The Rolling Stones) 3 Animal Duds (Jeannie Her Redheads) 4 Funky Fleopatra (music director by Charlie Watts) 5 365 Rolling Stones 6 Oh, I Do Like To See Me On The B Side (composers by Oldham, Wyman, Watts, bass by Bill Wyman, drums by Charlie Watts) 7 I Get Around (vocals by Mick Jagger) 8 Needles Pins (guitar by Keith Richards) 9 Do Wah Diddy Diddy (guitar by Keith Richards) 10 I Want To Hold Your Hand (guitar by Keith Richards) 11 Da Doo Ron Ron (vocals by Mick Jagger) 12 Memphis, Tennessee (guitar by Keith Richards) 13 I Know 14 Hear It (guitar by Keith Richards) 15 Hear It (guitar by Keith Richards) Note; 7"single (tracks 1-6), LP East Meets West (track 7), LP 16 Hip Hits (tracks 8-12), outtakes (tracks 13-15) Other; I Don t Know What To Do With Myself, You re No Good (LP 16 Hip Hits ) (guitar by Keith Richards) ■Animal Duds (DAC-064) includes tracks 1, 3, 7, 9 mono ■RARITIES / THE ANDREW OLDHAM ORCHESTRA CHORUS (See For Miles Records SEECD 394) includes tracks 2, 4-6, 8,10-12 mono ■The Allen Klein Collection / Kleins Revenge (Midnight Beat MBCD 128) includes track 13 mono ■The Black Box CD-1 (Yellow Dog YD 046) includes track 14 mono ■Necrophilia (VGP-317) Track 15 stereo SOLO WORKS 1964 1 That s Girl Belongs To Yesterday (Gene Pitney) (composers by Jagger, Richards) 2 Will You Be My Lover Tonight (George Bean) (composers by Jagger, Richards) 3 It Should Be You (George Bean) (composers by Jagger, Richards) 4 Give Me Your Hand (Teddy Green) (composers by Jagger, Richards) 5 Shang A Doo Lang (Adrienne Poster) (composers by Jagger, Richards) 6 As Tears Go By (Marianne Faithfull) (composers by Jagger, Richards, Oldham) 7 So Much In Love (The Mighty Avengers) (composers by Jagger, Richards) 8 Blowin In The Wind (Marianne Faithfull) (acoustic guitar by Keith Richards) 9 Young Love (Bo Peep) (backing vocals by Mick Jagger) 10 All I Want Is My Baby (Bobby Jameson) (composers by Jagger, Richards) 11 Each Every Day Of The Year (Bobby Jameson) (composers by Jagger, Richards) 12 You Must Be The One (The Greenbeats) (composers by Jagger, Richards) 13 A Mess Of Blues (Peter Gordon) (harmonica by Brian Jones) 14 Love Me, Baby (Peter Gordon) (harmonica by Brian Jones) Note; 7"single (tracks 1-14) ■LET S GO GET STONED! (Sequel Records NEMCD 377) includes racks 1, 4,12 mono ■THE ROLLING STONES WORKS (Deram POCD-1990) includes tracks 2-3, 5-11 mono ■Ex Stones (no credit) includes track 13 stereo ■Stoned (no credit) includes track 14 stereo BACK / NEXT